home *** CD-ROM | disk | FTP | other *** search
/ Spiceworld The Movie - Interactive CD-ROM / Spiceworld The Movie: Interactive CD-ROM.iso / pc / elements / spiceone.dir / 00001.ls next >
Encoding:
Text File  |  1997-12-04  |  1.3 KB  |  56 lines
  1. on startMovie
  2.   global VIDVOLUME
  3.   set VIDVOLUME to 250
  4.   set the soundLevel to 6
  5. end
  6.  
  7. on stopMovie
  8.   repeat with x = 1 to 120
  9.     set the visible of sprite x to 1
  10.     updateStage()
  11.   end repeat
  12.   clearGlobals()
  13. end
  14.  
  15. on doButton
  16.   set outBtnNo to the memberNum of sprite the clickOn
  17.   set inBtnNo to outBtnNo + 1
  18.   repeat while the mouseDown
  19.     if rollOver(the clickOn) then
  20.       set the memberNum of sprite the clickOn to inBtnNo
  21.     else
  22.       set the memberNum of sprite the clickOn to outBtnNo
  23.     end if
  24.     updateStage()
  25.   end repeat
  26.   set btnState to rollOver(the clickOn)
  27.   set the memberNum of sprite the clickOn to outBtnNo
  28.   updateStage()
  29.   return btnState
  30. end
  31.  
  32. on adjustVideoVol
  33.   global VIDVOLUME
  34.   repeat while the mouseDown
  35.     set theVLoc to max(185, min(290, the mouseV))
  36.     set the locV of sprite the clickOn to theVLoc
  37.     set VIDVOLUME to (290 - theVLoc) * 256 / 105
  38.     set the volume of sprite 6 to VIDVOLUME
  39.     updateStage()
  40.   end repeat
  41. end
  42.  
  43. on initialiseFrame
  44.   global LOOPFRAME, STANDARDCURSOR
  45.   set LOOPFRAME to the frameLabel
  46.   repeat with spriteNo = 1 to 120
  47.     set the visible of sprite spriteNo to 1
  48.   end repeat
  49.   set the visible of sprite 52 to 0
  50.   set the visible of sprite 53 to 0
  51.   set the visible of sprite 71 to 0
  52.   set the visible of sprite 72 to 0
  53.   updateStage()
  54.   cursor(STANDARDCURSOR)
  55. end
  56.